Sub FILTERCHAIFEN()
For i = 2 To Sheets.Count
Sheet1.Range("A1:F65535").AutoFilter field:=4, Criteria1:=Sheets(i).Name
Sheet1.Range("A2:F65535").Copy Sheets(i).Range("A2")
Sheet1.Range("A1:F65535").AutoFilter
Next


End Sub


Sub clear()

For i = 2 To Sheets.Count
      Sheets(i).Range("a2:F65535").ClearContents
      
      
      
      Next
      Sheet1.Range("A1:F65535").AutoFilter
      
           
End Sub

